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-- BootLoaderUtilities.mesa 

-- Last Modified by Sandman, May 10, 1978 1:38 PM 

DIRECTORY 

AUoFileDefs: FROM "aUof iledefs" . 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldefs", 
DirectoryDefs: FROM "directorydef s". 
FrameDefs: FROM "framedefs". 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" , 
LoaderUtilityDefs: FROM "loaderutil itydef s" . 
SegmentDefs: FROM "segmentdef s", 
StringDefs: FROM "stringdef s". 
SystemDefs: FROM "systemdef s"; 

DEFINITIONS FROM BcdDefs, LoaderUtilityDefs; 

BootLoaderUtilities: PROGRAM 

IMPORTS DirectoryDefs. LoaderBcdUtilDefs. SegmentDefs. StringDefs. 

SystemDefs 
EXPORTS LoaderUtilityDefs ■ PUBLIC 

BEGIN 

files: FileTable ♦- NIL; 

loadee: LoaderBcdUtilDefs.BcdBase; 

ssb: BcdDefs. NameString; 

ftb: CARDINAL; 

nfilestofind: CARDINAL <- 0; 

tableopen: BOOLEAN <- FALSE; 

SubStringDescriptor: TYPE « StringDefs .SubStringDescriptor; 
bed: SubStringDescriptor » [base: "bed", offset: 0, length: 3]; 

AddFileName: PUBLIC PROCEDURE [file: BcdDefs . FTIndex] ■ 
BEGIN 

p: FileTable; 

i, offset, length: CARDINAL; 
FOR p <- files, p. link UNTIL p - NIL DO 

IF file « p. file THEN RETURN; 

ENDLOOP; 
p ♦- SystemDefs. AnocateHeapNode[SIZE[FileTableObject]]; 
pt ^ [file: file, filehandle: NIL. ext: FALSE, link: files]; 
files ♦- p; 
IF file » BcdDefs. FTSelf THEN 

BEGIN 

p. filehandle *- SegmentDefs. VMtoFileSegment[loadee]. file; 

RETURN 

END; 
IF file « BcdDefs. FTNull THEN BEGIN p. filehandle <- NIL; RETURN END; 
offset *■ (ftb+f ile).name; 
length ♦- ssb.size[(f tb+f ile) .name]; 
FOR i IN [offset.. offset+length) DO 

IF ssb. string. text[i] « '. THEN 
BEGIN p. ext ♦- TRUE; EXIT END; 

ENDLOOP; 
nfilestofind <- nfilestofind + 1; 
RETURN; 
END; 

FindFileName: PUBLIC PROCEDURE [name: StringDefs .Substring , ext: BOOLEAN] 
RETURNS [found: BOOLEAN, file: FileTable] - 
BEGIN OPEN StringDefs; 

filename: SubStringDescriptor <- [base: §ssb. string, offset:, length:]; 
FOR file *- files, file, link UNTIL file - NIL DO 
filename. off set ♦- (ftb+file. file) .name; 
filename. length ♦- ssb.size[(ftb+file. file) .name]; 
IF LastCharIsDot[6f ilename] THEN name. length «- name. length + 1; 
IF ext « file. ext AND EquivalentSubStrings[6f ilename, name] THEN 

RETURN[TRUE. file]; 
ENDLOOP; 
RETURN[FALSE. NIL]; 
END; 

LastCharlsDot: PUBLIC PROCEDURE [name: StringDefs .Substring] RETURNS [BOOLEAN] - 
BEGIN 
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RETURN[name.base[name.offs8t+nam0.1ength-l] ■ '.]; 
END; 

FileNotFound: PUBLIC SIGNAL [name: STRING] RETURNS [file: FileHandle] » CODE; 

LookupFileTable: PUBLIC PROCEDURE - 
BEGIN 

p: FileTable; 

ssd: StringDefs.SubStringDescriptor; 
name: STRING <- [40]; 

IF nfilestofind # THEN DirectoryDef s. EnumerateDirectory[CheckOn0]; 
FOR p <- files, p. link UNTIL p » NIL DO 

IF p.filehandle » NIL AND p. file # BcdDef s .FTNull THEN 
BEGIN 
ssd *- [base: 0ssb. string, offset: (ftb+p. file) .name, 

length: ssb.size[{f tb+p. file) .name]] ; 
name. length ♦- 0; 

StringDefs.AppendSubString[name, 0s sd]; 
p.filehandle «- SIGNAL FileNotFound[name]; 
END; 
ENDLOOP; 
END; 

CheckOne: PROCEDURE [fp: POINTER TO Al toFileDef s. FP. name: STRING] 
RETURNS [found: BOOLEAN] - 
BEGIN OPEN StringDefs; 
i: CARDINAL; 

dirName: SubStringDescriptor; 

bed: SubStringDescriptor <- [base: "bed", offset: 0, length: 3]; 
file: LoaderUtilityDefs. FileTable; 
FOR i IN [0. .name. length) DO 
IF name[i] » ' . THEN 
BEGIN 

IF name.length-i # 5 THEN GOTO UseWholeName; 
dirName ♦- [base: name, offset: i+1, length: 3]; 
IF ~EquivalentSubStrings[0dirName, 0bed] THEN GOTO UseWholeName; 
dirName. offset *- 0; dirName. length ^ i; 
GOTO HasBCDExtension; 
END; 
REPEAT 

UseWholeName «> NULL; 
HasBCDExtension ■> 
BEGIN 

[found, file] <- FindFileName[@dirName, FALSE]; 
IF found THEN RETURN [ThisIsTheOne[f p , file]]; 
END; 
ENDLOOP; 
dirName ^ [base: name, offset: 0, length: name.length-1]; -- ignore dot on end 
[found, file] <- FindFileName[0dirName, TRUE]; 
RETURN [IF found THEN ThisIsTheOne[f p . file] ELSE FALSE]; 
END; 

ThisIsTheOne: PROCEDURE [fp: POINTER TO Al toFileDef s . FP, file: FileTable] 
RETURNS [BOOLEAN] » 
BEGIN 

f ile.f ilehandle ♦- SegmentDef s. InsertFile[fp , SegmentDef s .Read]; 
nfilestofind <- nfilestofind - 1; 
RETURN [nfilestofind»0]; 
END; 

FileHandleFromTable: PUBLIC PROCEDURE [filename: BcdDef s . FTIndex] 
RETURNS [file: SegmentDef s . FileHandle] » 
BEGIN 

p: FileTable; 

FOR p <- files, p. link UNTIL p - NIL DO 
IF p. file « filename THEN 

RETURN[p.filehandle]; 
ENDLOOP; 
RETURN[NIL]; 
END; 

FinalizeUtilities: PUBLIC PROCEDURE • 
BEGIN 

p: FileTable; 

FOR files <- files, p UNTIL files « NIL DO 
p ^ files. link; 
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IF files. file # NIL AND f iles .f ilehandle.segcount ■ THEN 
Segmen tDefs. Releaser ile[f iles.fi lehandle]; 

SystemDef s.FreeHeapNode[f iles]; 

ENDLOOP; 
tableopen ♦- FALSE; 
END; 

InitializeUtilities: PUBLIC PROCEDURE [bed: LoaderBcdUtilDefs.BcdBase] 
BEGIN OPEN SystemDef s; 
loadee ^ bed; 

ssb ♦- LOOPHOLE[loadee+loadee.ssOffset]; 
ftb ^ LOOPHOLEpoadee+loadee.ftOffset]; 
IF tableopen THEN Final izeUtiinies[]; 
tableopen ^ TRUE; 
END; 

"- Utility Routines 

EnterCodeFileNames: PUBLIC PROCEDURE [loadee: BcdBase] ■ 
BEGIN 
SegSearch: PROCEDURE [sgh: SGHandle, sgi: SGIndex] RETURNS [BOOLEAN] 

BEGIN 

IF sgh. class ■ code THEN 
AddFileNanie[sgh.f ile]; 

RETURN[FALSE]; 

END; 
[] *r LoaderBcdUtilDefs.EnumerateSegTable[loadee, SegSearch]; 
RETURN; 
END; 

END 



